﻿Imports DNP.GestionComercial.BE
Imports DNP.GestionComercial.DAL

Public Class OrdenCompraBL

    Public Function Guardar(ByRef obj As OrdenCompraBE, ByVal usuario As String) As RespuestaBE

        If OrdenCompraValidar(obj, usuario) Then
            Return New OrdenCompraDAL().Guardar(obj, usuario)
        Else
            Dim res As New RespuestaBE
            res.Mensaje = "Erro al momento de ..."
            res.Respuesta = False
            Return res
        End If

    End Function

    Private Function OrdenCompraValidar(ByVal obj As OrdenCompraBE, ByVal usuario As String) As Boolean

        Dim exito As Boolean = True

        If String.IsNullOrEmpty(usuario) Then Return Not exito
        If String.IsNullOrEmpty(obj.NEMP_CODIGO) Then Return Not exito
        If String.IsNullOrEmpty(obj.NREP_CODIGO) Then Return Not exito
        If String.IsNullOrEmpty(obj.CORD_TIP_COMP) Then Return Not exito
        If String.IsNullOrEmpty(obj.CORD_SUBTOTAL) Then Return Not exito
        If String.IsNullOrEmpty(obj.CORD_TOTAL) Then Return Not exito

        Return exito

    End Function



End Class
